home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Mops 2.7 / Mops Manual / Part I.srd / Part I.srd.rsrc / PICT_63.png < prev    next >
Portable Network Graphic  |  1996-01-02  |  94KB  |  816x1056  |  8-bit (256 colors)
Labels: book | reckoner | sky | skyscraper | windowpane
OCR: Lesson 12 I-59 Always executes XXX each time through the loop and executes yyy only if a zero appears on the stack loop ends when stack shows a nonzero value. EXIT This good place to mention another very useful operation EXIT. This completely exits the current definition Here's modified version of begintest: beginTest BEGIN key EXIT THEN key UNTII This definion will keep running until you type either an "a" (97) or You can also write beginTest BEGIN key 9 7 EXIT THEN key EXIT THEN AGAIN The word AGA IN returns straight to the BEGIN, thout test. ing anything wri BEGIN .AGAIN loop, the loop must have some other way of .e rmi If you write EXIT within DO LOOP you have EC remember one more th any kind of Forth) keeps some extra forma ation around DO LOO remove -ni in forma ion you are butob to ...